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TITLE 

TYPE 

NUMBER OF WORDS 

TEMPORARY STORAGE 

PARAMETERS 

DURATION 



READ AROUND 
DESCRIPTION 



NOTES 



Floating Decimal Square Root Auxiliary (DOI or SADOl) 
Closed-Auxiliary for Routine Al 
16 
0, 1 

53, location of floating decimal accumulator 

54, location of Routine Al. 

l,8n milliseconds for J a where n is defined "by 




< 2 



•39 



rz 



Less than 80 

This routine takes the number a from the floating accumulator 

of Routine Al and replaces it with fa* Entry is made with 

an 8 J order and control is returned to 193^,. 

The number a is represented as a = A x 10 p where A/2 is 

stored at S3 and p + 6k is stored at 1S3° If P is even this 

routine puts 6k + p/2 in 1S3 and (l/2 ) V^lTin S3* I f p 

is odd it puts 6k + (p+l)/2 in 1S3 and (1/2) vTa/IO in S3* 

If a is negative Routine Al will hang up on the order pair 

36 19S4 OOF* 



DAT E 6/9/53 RTs. 1/16/6I 
PROGRAMMED BY G<,H»Leichner 



APPROVED BY J,PoNash 



LOCATION 


ORDER 


NOTES PAGE 1 





S\<T' 








IA 1S3 




p + 129 to ^ 


1 


10 IF 




p/2 + 6k if p even 




42 1S3 




(p+l)/2 + 6k if p odd 


2. : 


-01 IF 








kQ F 




1 if p evenj if p odd 


3 


50. S3 




a/2 


; .; 


26 4l 






k 


11 IF 






: 


SJ 65F 




a/2 + 1/2 


; 5 


40 IF 
50 129Sk 






6 


- L5 S3 








66 if 




Square Root loop 


7 


S5 F 
LO IF 






8 


36 10L 
10 IF 






9 


lM IF 
26 % 






10 


LI F 




if p odd j- negative if p even 


'• "'11 


36 12L 
7J l^L 




|a/2 xfz/2 =Ja/2 


12 


■ 22 12L 
TJ 15L 






J a/2 x/20/20 =/ a/10/2 




~kO S3 






13 


36 19S4 




Return to Routine Al-63 




00 F 




Bang up if negative 


Ik 


40F -00 2071 
O678 1186 J 




[7/~z 


- 15 


OOF 00 2236 








0679 7750 J 




^20/20 



RA 1 



